home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / Compiler / Builtins / Real.m < prev    next >
Text File  |  1990-08-16  |  2KB  |  84 lines
  1. % 
  2. % @(#)Real.m    1.2  6/29/87
  3. %
  4. export _RealObject to "Builtins"
  5.  
  6. const _RealObject == immutable object _RealObject
  7.   export getSignature, create
  8.   const RealType == immutable type RealType
  9.     function + [o : Real] -> [r : Real]
  10.       % r <- self + o
  11.     function - [o : Real] -> [r : Real]
  12.       % r <- self - o
  13.     function * [o : Real] -> [r : Real]
  14.       % r <- self * o
  15.     function / [o : Real] -> [r : Real]
  16.       % r <- self / o
  17.     function > [o : Real] -> [r : Boolean]
  18.       % r <- self > o
  19.     function >= [o : Real] -> [r : Boolean]
  20.       % r <- self >= o
  21.     function < [o : Real] -> [r : Boolean]
  22.       % r <- self < o
  23.     function <= [o : Real] -> [r : Boolean]
  24.       % r <- self <= o
  25.     function = [o : Real] -> [r : Boolean]
  26.       % r <- self = o
  27.     function != [o : Real] -> [r : Boolean]
  28.       % r <- self != o
  29.     function asString -> [r : String]
  30.       % s is set to a string with no leading 0's, decimal rep.
  31.     function asInteger -> [r : Integer]
  32.       % s is set to an integer (rounded)
  33.     function ~ -> [r : Real]
  34.       % r <- negate self
  35.   end RealType
  36.   function getSignature -> [result : Signature]
  37.     result <- RealType
  38.   end getSignature
  39.   function create [rep : String] -> [result : RealType]
  40.     result <- immutable object aReal
  41.       export +, -, *, /, >, >=, <, <=, =, !=, asString, asInteger, ~
  42.       function + [o : Real] -> [r : Real]
  43.     primitive 010 [r] <- [o]
  44.       end +
  45.       function - [o : Real] -> [r : Real]
  46.     primitive 110 [r] <- [o]
  47.       end -
  48.       function * [o : Real] -> [r : Real]
  49.     primitive 210 [r] <- [o]
  50.       end *
  51.       function / [o : Real] -> [r : Real]
  52.     primitive 310 [r] <- [o]
  53.       end /
  54.       function > [o : Real] -> [r : Boolean]
  55.     primitive 510 [r] <- [o]
  56.       end >
  57.       function >= [o : Real] -> [r : Boolean]
  58.     primitive 610 [r] <- [o]
  59.       end >=
  60.       function < [o : Real] -> [r : Boolean]
  61.     primitive 710 [r] <- [o]
  62.       end <
  63.       function <= [o : Real] -> [r : Boolean]
  64.     primitive 810 [r] <- [o]
  65.       end <=
  66.       function = [o : Real] -> [r : Boolean]
  67.     primitive 910 [r] <- [o]
  68.       end =
  69.       function != [o : Real] -> [r : Boolean]
  70.     primitive 1010 [r] <- [o]
  71.       end !=
  72.       function asString -> [r : String]
  73.     primitive 1110 [r] <- []
  74.       end asString
  75.       function asInteger -> [r : Integer]
  76.     primitive 1210 [r] <- []
  77.       end asInteger
  78.       function ~ -> [r : Real]
  79.     primitive 1310 [r] <- []
  80.       end ~
  81.     end aReal
  82.   end create
  83. end _RealObject
  84.